home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-68K / Examples folder / Macro Source / Paste Covariances < prev    next >
Text File  |  1989-06-30  |  693b  |  81 lines
  1. alpha     "Paste Covariance:"
  2. index
  3. RCL 26
  4. x <= y
  5. STOP
  6.  
  7. index
  8. STO 97
  9.  
  10. LBL 98
  11. index
  12. RCL 97
  13. const     1.000000000e+02
  14.  /
  15.  +
  16. STO 96
  17.  
  18. RCL 26
  19. const     2.000000000e+00
  20.  *
  21. const     1.000000000e+00
  22.  +
  23. RCL 97
  24.  -
  25. RCL 97
  26.  *
  27. const     2.000000000e+00
  28.  /
  29. index
  30. RCL 97
  31.  -
  32.  +
  33. const     3.000000000e+01
  34.  +
  35. STO 99
  36. rclr 99
  37. STOi 96
  38.  
  39. const     -1.000000000e+00
  40. DSE 97
  41. GTO 98
  42.  
  43.  
  44.  
  45. STOP
  46.  
  47. entry
  48. const     3.000000000e+01
  49. STO 95
  50. const     1.000000000e+01
  51. RCL 26
  52. x >= y
  53. GTO 90
  54.  
  55. const     1.000000000e+00
  56. RCL 26
  57. x < y
  58. GTO 90
  59.  
  60. size
  61. const     1.000000000e+02
  62. x < y
  63. GTO 91
  64.  
  65. size
  66. RCL 26
  67. x > y
  68. GTO 91
  69.  
  70. end
  71.  
  72. LBL 90
  73. alpha     "Sorry, No Curve Fit Data!"
  74. view 0
  75. abort
  76.  
  77. LBL 91
  78. alpha     "Sorry, Improper Selection"
  79. view 0
  80. abort
  81.